home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pcppal.arc / NEWYORK.CMD < prev    next >
Encoding:
Text File  |  1987-01-01  |  3.6 KB  |  162 lines
  1.       CLEAR
  2.       LOCATE 1,0
  3.       TRANSMIT "C DIAL"
  4.       TRANSMIT S2
  5.       TRANSMIT "/"
  6.       TRANSMIT S9
  7.       TRANSMIT ","
  8.       TRANSMIT S8
  9.       TRANSMIT "!"
  10.       WAITFOR "="
  11.       TRANSMIT S7
  12.       TRANSMIT "!"
  13.       CLEAR
  14.       RGET S5
  15.       RGET S5
  16.       LOCATE 1,0
  17.       RGET S5
  18.       PAUSE 1
  19.  
  20.       FIND S5 "CONNECT"
  21.  
  22.       IF NOT FOUND
  23.          CLEAR
  24.          LOCATE 1,0
  25.          MESSAGE "THE REMOTE PCP IS BUSY....RETURNING TO THE MAIN MENU"
  26.          PAUSE 2
  27.          CLEAR
  28.          LOCATE 1,0
  29.          EXECUTE "INTRO.CMD"
  30.       ENDIF
  31.  
  32.  
  33. BEGIN:
  34.    CLEAR
  35.    LOCATE 4,0
  36.    MESSAGE "                         ╔══╡   NEW YORK NUMBERS  ╞══╗"
  37.    MESSAGE "                         ║                           ║"
  38.    MESSAGE "                         ║  1 - PC Magazine IRS      ║"
  39.    MESSAGE "                         ║  2 - Metro CPU Studio     ║"
  40.    MESSAGE "                         ║  3 - High Tech            ║"
  41.    MESSAGE "                         ║  4 - Manhattan South      ║"
  42.    MESSAGE "                         ║  5 - The Machine          ║"
  43.    MESSAGE "                         ║  6 - Data Com             ║"
  44.    MESSAGE "                         ║  M - Manual Dial          ║"
  45.    MESSAGE "                         ║  Q - REturn to MAIN menu  ║"
  46.    MESSAGE "                         ║                           ║"
  47.    MESSAGE "                         ╠═══════════════════════════╣"
  48.    MESSAGE "                         ║ ENTER THE # OF THE BBS OF ║"
  49.    MESSAGE "                         ║ YOUR CHOICE:              ║"
  50.    MESSAGE "                         ╚═══════════════════════════╝"
  51.  
  52.  
  53.  
  54.  
  55.    LOCATE 17,40
  56.    MESSAGE  " "
  57.    LOCATE 17,40
  58.    GET S5 1
  59.  
  60.    SWITCH S5
  61.  
  62.       CASE "1"
  63.          ASSIGN S3 "PC Magazine IRS"
  64.          ASSIGN S4 "6960360"
  65.       ENDCASE
  66.  
  67.       CASE "2"
  68.          ASSIGN S3 "Metro CPU Studio"
  69.          ASSIGN S4 "7573387"
  70.       ENDCASE
  71.  
  72.       CASE "3"
  73.          ASSIGN S3 "High Tech"
  74.          ASSIGN S4 "7694799"
  75.       ENDCASE
  76.  
  77.       CASE "4"
  78.          ASSIGN S3 "Manhattan South"
  79.          ASSIGN S4 "4327288"
  80.       ENDCASE
  81.  
  82.       CASE "5"
  83.          ASSIGN S3 "The Machine"
  84.          ASSIGN S4 "3409666"
  85.       ENDCASE
  86.  
  87.       CASE "6"
  88.          ASSIGN S3 "Data Com"
  89.          ASSIGN S4 "4967946"
  90.       ENDCASE
  91.  
  92.       CASE "M"
  93.          CLEAR
  94.          LOCATE 5,20
  95.          MESSAGE "NUMBER TO DIAL:"
  96.          LOCATE 5,36
  97.          ASSIGN S3 "MANUAL DIAL"
  98.          GET S4
  99.       ENDCASE
  100.  
  101.       CASE "Q"
  102.          CLEAR
  103.          TRANSMIT "!@!"
  104.          WAITFOR "@"
  105.          TRANSMIT "D!"
  106.          WAITFOR "@"
  107.          CLEAR
  108.          LOCATE 1,0
  109.          PAUSE 1
  110.          EXECUTE "INTRO.CMD"
  111.       ENDCASE
  112.  
  113.       DEFAULT
  114.          MESSAGE "^G"
  115.          LOCATE 17,40
  116.          GOTO BEGIN
  117.       ENDCASE
  118.  
  119. ENDSWITCH
  120.       CLEAR
  121.       LOCATE 1,0
  122.       MESSAGE "CONNECTED TO PCP"
  123.       MESSAGE S1
  124.       MESSAGE "DIALING"
  125.       MESSAGE S3
  126.  
  127.  
  128.       TRANSMIT "ATZ!"
  129.       WAITFOR "OK" 10
  130.       TRANSMIT "ATDT"
  131.       TRANSMIT S4
  132.       TRANSMIT "!"
  133.       RGET S0
  134.       RGET S0 80 40
  135.       RGET S0
  136.       PAUSE 2
  137.  
  138.       FIND S0 "BUSY"
  139.       IF FOUND
  140.          CLEAR
  141.          MESSAGE "THE REMOTE PCP IS BUSY....RETURNING TO THE CITY MENU"
  142.          PAUSE 2
  143.          CLEAR
  144.          LOCATE 1,0
  145.          GOTO BEGIN
  146.       ENDIF
  147.  
  148.       FIND S0 "CONNECT"
  149.       IF FOUND
  150.          SET PARITY NONE
  151.          SET DATABITS 8
  152.       ELSE
  153.          CLEAR
  154.          MESSAGE "THE REMOTE PCP IS BUSY....RETURNING TO THE CITY MENU"
  155.          PAUSE 2
  156.          CLEAR
  157.          LOCATE 1,0
  158.          GOTO BEGIN
  159.       ENDIF
  160.  
  161.       ALARM 1
  162.       EXIT